home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
progjour
/
1991
/
06
/
alib
/
abort.asm
next >
Wrap
Assembly Source File
|
1991-08-23
|
454b
|
32 lines
include asm.inc
public abort_if_cf
.const
ertx_aborting db 'Aborting',0
.code
extn get_strerror,perror,set_strerror,exit_with_failure
;; abort if cf
;
; entry Cf error flag, program exits if set (Cf==1)
;
abort_if_cf proc
jnc aic2
call get_strerror
jz aic1
movx si,NULL_POINTER
call perror
aic1: lea ax,ertx_aborting
call set_strerror
call perror
call exit_with_failure
aic2: ret
abort_if_cf endp
end